#!/usr/bin/perl

$file = $0;
$file =~ s#/MacOS/foxbox##;
$path = "/Applications/AquafoxBoxRunner.app" if (-x
	"/Applications/AquafoxBoxRunner.app/Contents/MacOS/aquafox");

	if (! -d $path || ! -x "$path/Contents/MacOS/aquafox") {
		if (-x "/Applications/AquafoxBoxRunner.app/Contents/MacOS/aquafox") {
			$path = "/Applications/AquafoxBoxRunner.app";
		} else {
			&dialogue("Couldn't find $path!");
		}
	}

exec("\"$path/Contents/MacOS/aquafox\" -app \"$file/Resources/foxbox/application.ini\"");
&dialogue("Failed to execute: $!\n");
sub dialogue {
	open(O, "|/usr/bin/osascript") || (print "Can't open osascript; $!\n", exit);
	print O <<"EOG";
tell application "Dock"
	activate
	display dialog "@_" buttons ("OK") default button "OK"
	set answername to button returned of the result
end tell
EOG
	close(O);
	exit;
}

